{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\lang2052\f0\fs18\'cf\'ee\'c4\'bf\'ca\'c2\'bc\'fe\par
\par
\cf2 AfterOpenProject\par
\par
\cf3 'For Each tb As Table In Tables\par
'    Select Case tb.name\par
'        Case "\'bf\'cd\'bb\'a7","\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed","\'c9\'cc\'c6\'b7"\par
'            tb.Visible=False\par
'    End Select\par
'Next\par
Forms("\'bf\'aa\'b5\'a5").open\par
\par
Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Cols("\'c9\'cc\'c6\'b7").DropForm = "\'b4\'b0\'bf\'da1"\par
\par
\cf2 BeforeCloseProject\par
\par
\cf3 For Each dt As DataTable In DataTables\par
    'MessageBox.Show(dt.name)\par
    dt.save\par
Next\par
\par
\cf1\'bc\'c6\'bb\'ae\'b9\'dc\'c0\'ed\par
\par
\'b1\'ed\'ca\'c2\'bc\'fe\par
\par
\cf2\'bf\'aa\'b5\'a5_CurrentChanged\par
\par
\cf3 If e.Table.Current IsNot Nothing Then\par
    Dim r As Row = e.Table.current\par
    DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").LoadFilter = "\'b5\'a5\'ba\'c5='" & r("\'b5\'a5\'ba\'c5") & "'"\par
    DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Load\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_ValidateEdit\par
\par
\cf3 If e.Col.DroppedDown Then '\'c8\'e7\'b9\'fb\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\'d2\'d1\'be\'ad\'b4\'f2\'bf\'aa\par
    e.Col.CloseDropDown() '\'d4\'f2\'b9\'d8\'b1\'d5\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_AfterEdit\par
\par
\cf3 vars("count")=0\par
For Each r As Row In Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed")\par
    For i As Integer=1 To 10\par
        If r("\'ca\'fd\'c1\'bf" & i) Is Nothing OrElse r("\'ca\'fd\'c1\'bf" & i) =0 Then\par
            Dim j As Integer\par
            If i<10 Then\par
                j=i+1\par
                If r("\'ca\'fd\'c1\'bf" & j) > r("\'ca\'fd\'c1\'bf" & i) Then\par
                    r("\'ca\'fd\'c1\'bf" & i)=r("\'ca\'fd\'c1\'bf" & j)\par
                    r("\'ca\'fd\'c1\'bf" & j)=Nothing\par
                End If\par
            End If\par
        End If\par
    Next\par
Next\par
\par
For Each r As Row In Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed")\par
    For i As Integer=1 To 10\par
        If r("\'ca\'fd\'c1\'bf" & i) IsNot Nothing AndAlso r("\'ca\'fd\'c1\'bf" & i) >0 Then\par
            vars("count")=vars("count")+1\par
        End If\par
    Next\par
Next\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_ChangeEdit\par
\par
\cf3 If e.Col.Name = "\'c9\'cc\'c6\'b7" Then '\'c8\'e7\'b9\'fb\'b1\'e0\'bc\'ad\'b5\'c4\'ca\'c7\'bf\'cd\'bb\'a7ID\'c1\'d0\par
    If e.Col.DroppedDown Then '\'c8\'e7\'b9\'fb\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\'d2\'d1\'be\'ad\'b4\'f2\'bf\'aa\par
        Dim tbl As Table = Tables("\'b4\'b0\'bf\'da1_Table1") \par
        If e.Text = "" Then '\'c8\'e7\'b9\'fb\'c4\'da\'c8\'dd\'ce\'aa\'bf\'d5\par
            tbl.Filter = "" '\'cf\'d4\'ca\'be\'cb\'f9\'d3\'d0\'bf\'cd\'bb\'a7\par
        Else '\'b7\'f1\'d4\'f2\'b8\'f9\'be\'dd\'ca\'e4\'c8\'eb\'c4\'da\'c8\'dd\'bd\'f8\'d0\'d0\'c4\'a3\'ba\'fd\'c9\'b8\'d1\'a1\par
            Dim txt As String = "'%" & e.Text & "%'"\par
            tbl.Filter = "\'bf\'cd\'bb\'a7 Like " & txt & " Or \'c9\'cc\'c6\'b7 Like " & txt \par
        End If\par
    End If\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_KeyPressEdit\par
\par
\cf3 If e.Col.Name = "\'c9\'cc\'c6\'b7" Then '\'c8\'e7\'b9\'fb\'b1\'e0\'bc\'ad\'b5\'c4\'ca\'c7\'bf\'cd\'bb\'a7ID\'c1\'d0\par
    If e.Col.DroppedDown = False  Then'\'c7\'d2\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\'c3\'bb\'d3\'d0\'b4\'f2\'bf\'aa\par
        e.Col.OpenDropDown() '\'b4\'f2\'bf\'aa\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\par
    End If\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_KeyDownEdit\par
\par
\cf3 If e.Col.Name = "\'c9\'cc\'c6\'b7" Then '\'c8\'e7\'b9\'fb\'b1\'e0\'bc\'ad\'b5\'c4\'ca\'c7\'bf\'cd\'bb\'a7 ID\'c1\'d0\par
    If e.Col.DroppedDown Then '\'c8\'e7\'b9\'fb\'cf\'c2\'c0\'ad\'b4\'b0\'bf\'da\'d2\'d1\'be\'ad\'b4\'f2\'bf\'aa\par
        Dim tbl As Table = Tables("\'b4\'b0\'bf\'da1_Table1")\par
        If e.KeyCode = Keys.Up Then '\'c8\'e7\'b9\'fb\'b0\'b4\'cf\'c2\'b5\'c4\'ca\'c7\'c9\'cf\'bc\'fd\'cd\'b7\'b0\'b4\'bc\'fc\par
            tbl.Position = tbl.Position - 1 '\'cf\'f2\'c9\'cf\'d2\'c6\'b6\'af\'d2\'bb\'d0\'d0\par
            e.Cancel = True\par
        ElseIf e.KeyCode = Keys.Down Then '\'c8\'e7\'b9\'fb\'b0\'b4\'cf\'c2\'b5\'c4\'ca\'c7\'cf\'c2\'bc\'fd\'cd\'b7\'b0\'b4\'bc\'fc\par
            tbl.Position = tbl.Position + 1 '\'cf\'f2\'cf\'c2\'d2\'c6\'b6\'af\'d2\'bb\'d0\'d0\par
            e.Cancel = True\par
        End If\par
    End If\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed_DataColChanged\par
\par
\cf3 '\'d7\'d4\'b6\'af\'bc\'c6\'cb\'e3\'d7\'dc\'ca\'fd\par
Dim i As Integer\par
Dim Totle As  Single\par
If e.DataCol.Name.StartsWith("\'ca\'fd\'c1\'bf") Then\par
    For i= 1 To 10\par
        If e.DataRow("\'ca\'fd\'c1\'bf" & i) IsNot Nothing Then\par
            Totle=Totle+e.DataRow("\'ca\'fd\'c1\'bf" & i)\par
        End If\par
    Next\par
    e.DataRow("\'d7\'dc\'ca\'fd")=Totle\par
End If\par
\par
\par
'\'d7\'d4\'b6\'af\'bc\'c6\'cb\'e3\'bd\'f0\'b6\'ee\par
Select Case e.DataCol.Name\par
    Case "\'d7\'dc\'ca\'fd","\'b5\'a5\'bc\'db","\'b8\'bd\'bc\'d3\'b7\'d1"\par
        e.DataRow("\'bd\'f0\'b6\'ee")=format(e.DataRow("\'d7\'dc\'ca\'fd") * e.DataRow("\'b5\'a5\'bc\'db") +e.DataRow("\'b8\'bd\'bc\'d3\'b7\'d1"),"0.0")\par
    Case "\'bd\'f0\'b6\'ee"\par
        If vars("\'bf\'aa\'b5\'a5\'b5\'a5\'ba\'c5") IsNot Nothing Then\par
            Dim zje As Decimal=DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("Sum(\'bd\'f0\'b6\'ee)","\'b5\'a5\'ba\'c5='" & vars("\'bf\'aa\'b5\'a5\'b5\'a5\'ba\'c5") & "'")\par
            DataTables("\'bf\'aa\'b5\'a5").ReplaceFor("\'d7\'dc\'bd\'f0\'b6\'ee",zje,"\'b5\'a5\'ba\'c5='" & vars("\'bf\'aa\'b5\'a5\'b5\'a5\'ba\'c5") & "'")\par
        End If\par
End Select\par
\par
'\'d7\'d4\'b6\'af\'cf\'d4\'ca\'be\'c0\'fa\'ca\'b7\'bc\'db\'b8\'f1\par
If e.DataCol.Name = "\'c9\'cc\'c6\'b7" Then\par
    \par
    Dim cmd As New SQLCommand\par
    cmd.ConnectionName = "data"\par
    Dim dt As DataTable\par
    cmd.CommandText = "SELECT \'bf\'cd\'bb\'a7,\'c8\'d5\'c6\'da,\'c9\'cc\'c6\'b7,\'b5\'a5\'bc\'db From \'bf\'aa\'b5\'a5 inner join \'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed on \'bf\'aa\'b5\'a5.\'b5\'a5\'ba\'c5=\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed.\'b5\'a5\'ba\'c5 where \'bf\'cd\'bb\'a7='" & Vars("name") & "'"\par
    dt = cmd.ExecuteReader()\par
    Dim dr As DataRow = dt.Find("\'c9\'cc\'c6\'b7='" & e.DataRow("\'c9\'cc\'c6\'b7") & "'", "\'c8\'d5\'c6\'da DESC")\par
    If dr IsNot Nothing Then\par
        e.DataRow("\'b5\'a5\'bc\'db") = dr("\'b5\'a5\'bc\'db")\par
    End If \par
End If\par
\par
\cf1\'b4\'b0\'bf\'da\'b1\'ed\'ca\'c2\'bc\'fe\par
\par
\cf2\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af_Table1_CurrentChanged\par
\par
\cf3 Dim r As Row = e.Table.Current\par
If r IsNot Nothing Then\par
    DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").LoadFilter = "\'b5\'a5\'ba\'c5='" & r("\'b5\'a5\'ba\'c5") & "'"\par
    DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").load\par
End If\par
\par
\cf2 _Table1_DoubleClick\par
\par
\cf3 Forms("\'b4\'b0\'bf\'da1").DropDownBox.CloseDropDown()\par
\par
\cf2 _Table1_KeyDown\par
\par
\cf3 If e.KeyCode = Keys.Enter Then\par
    Forms("\'b4\'b0\'bf\'da1").DropDownBox.CloseDropdown()\par
End If\par
\par
\cf1\'b4\'b0\'bf\'da\'d3\'eb\'bf\'d8\'bc\'fe\'ca\'c2\'bc\'fe\par
\par
\cf2\'b4\'b0\'bf\'da1_DropDownClosed\par
\par
\cf3 If e.Selected Then '\'c8\'e7\'b9\'fb\'d1\'a1\'d4\'f1\'c1\'cb\'d6\'b5\par
    Dim tbl As Table = Tables("\'b4\'b0\'bf\'da1_Table1")\par
    If tbl.Current IsNot Nothing Then\par
        e.Form.DropDownBox.Value = tbl.Current("\'c9\'cc\'c6\'b7")\par
        If e.Form.DropTable IsNot Nothing Then '\'c8\'e7\'b9\'fb\'ca\'c7\'cd\'a8\'b9\'fd\'b1\'ed\'cf\'c2\'c0\'ad\'b5\'c4\par
            e.Form.DropTable.FinishEditing() \par
        Else '\'c8\'e7\'b9\'fb\'ca\'c7\'cd\'a8\'b9\'fd\'b4\'b0\'bf\'da\'cf\'c2\'c0\'ad\'b5\'c4\par
            e.Form.DropDownBox.WriteValue() \par
        End If\par
    End If\par
End If\par
\par
\cf2\'b4\'b0\'bf\'da1_DropDownOpened\par
\par
\cf3 Dim txt As String = Vars("name")\par
Dim tbl As Table = Tables("\'b4\'b0\'bf\'da1_Table1")\par
Dim filter As String \par
If txt = "" Then\par
    filter = "1=1"\par
Else\par
    \par
    txt = "'%" & txt & "%'"\par
    filter = "\'bf\'cd\'bb\'a7 like " & txt & " Or \'c9\'cc\'c6\'b7 Like " & txt \par
    \par
End If\par
\par
tbl.Filter = filter\par
e.Form.DropDownBox.Select() '\'bd\'ab\'ca\'e4\'c8\'eb\'bd\'b9\'b5\'e3\'b7\'b5\'bb\'d8\'cf\'c2\'c0\'ad\'c1\'d0\'b1\'ed\'bf\'f2\par
\par
\cf2\'bf\'aa\'b5\'a5_AfterClose\par
\par
\cf3 'DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").DeleteFor("\'b5\'a5\'ba\'c5='" & e.Form.Controls("txtDh").text & "'")\par
Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Current.Reject()\par
Tables("\'bf\'aa\'b5\'a5").Current.Reject()\par
If User.Type <> UserTypeEnum.Developer Then\par
    Syscmd.Project.Exit()\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5_AfterLoad\par
\par
\cf3 Dim adLabel As WinForm.Label = e.Form.Controls("AdLabel")\par
adLabel.Text=""\par
\par
Dim cob As WinForm.ComboBox = e.Form.Controls("ComboBox1")\par
cob.ComboList=DataTables("\'bf\'cd\'bb\'a7").SQLGetComboListString("\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6")\par
For Each r As Row In Tables("\'c5\'e4\'d6\'c3\'b1\'ed")\par
    If r("\'b7\'d6\'c0\'e0")="\'b1\'ea\'cc\'e2\'d3\'d2\'cd\'b7" Then\par
        adLabel.Text=adLabel.Text & Chr(13) & Chr(10) & r("\'c4\'da\'c8\'dd")\par
    End If\par
    \par
Next\par
Functions.Execute("\'d0\'c2\'d4\'f6\'bf\'aa\'b5\'a5")\par
\par
\cf2\'bf\'aa\'b5\'a5_btnAdd_Click\par
\par
\cf3 Tables("\'bf\'aa\'b5\'a5").Current.Reject()\par
Functions.Execute("\'d0\'c2\'d4\'f6\'bf\'aa\'b5\'a5")\par
\par
\cf2\'bf\'aa\'b5\'a5_btnPrint_Click\par
\par
\cf3 Dim btn As WinForm.Button = Forms("\'bf\'aa\'b5\'a5").Controls("btnSave")\par
btn.PerformClick()\par
\par
\par
Functions.Execute("\'d3\'d0\'b5\'a5\'ce\'bb\'b5\'c4\'c2\'eb\'b5\'a5", e.Form)\par
\par
\cf2\'bf\'aa\'b5\'a5_btnPrint1_Click\par
\par
\cf3 Dim btn As WinForm.Button = Forms("\'bf\'aa\'b5\'a5").Controls("btnSave")\par
btn.PerformClick()\par
Functions.Execute("\'ce\'de\'b5\'a5\'ce\'bb\'b5\'c4\'c2\'eb\'b5\'a5", e.Form,"\'d9\'b3\'cc\'d8")\par
\par
\cf2\'bf\'aa\'b5\'a5_btnPrint2_Click\par
\par
\cf3 Forms("\'c5\'e4\'d6\'c3").open\par
\par
\cf2\'bf\'aa\'b5\'a5_btnPrint3_Click\par
\par
\cf3 Dim btn As WinForm.Button = Forms("\'bf\'aa\'b5\'a5").Controls("btnSave")\par
btn.PerformClick()\par
Functions.Execute("\'ce\'de\'b5\'a5\'ce\'bb\'b5\'c4\'c2\'eb\'b5\'a5", e.Form,"\'b6\'ab\'c4\'fe")\par
\par
\cf2\'bf\'aa\'b5\'a5_btnSave_Click\par
\par
\cf3 Dim kh As WinForm.ComboBox = e.Form.Controls("ComboBox1")\par
If kh.Value.Length>0 Then\par
    Dim r1 As DataRow=DataTables("\'bf\'cd\'bb\'a7").Find("\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6='" & kh.Value & "'")\par
    If r1 Is Nothing Then\par
        Dim r2 As Row=Tables("\'bf\'cd\'bb\'a7").AddNew\par
        r2("\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6")=kh.Value\par
        r2.Save()\par
    End If\par
Else\par
    MessageBox.show("\'c7\'eb\'ca\'e4\'c8\'eb\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6")\par
    e.Cancel=True\par
End If\par
For Each r3 As Row In Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed")\par
    Dim r4 As DataRow=DataTables("\'c9\'cc\'c6\'b7").find("\'c9\'cc\'c6\'b7\'c3\'fb\'b3\'c6='" & r3("\'c9\'cc\'c6\'b7") & "'")\par
    If r4 Is Nothing Then\par
        Dim r5 As Row=Tables("\'c9\'cc\'c6\'b7").addnew\par
        r5("\'c9\'cc\'c6\'b7\'c3\'fb\'b3\'c6")=r3("\'c9\'cc\'c6\'b7")\par
        r5.Save()\par
    End If\par
    \par
Next\par
\par
DataTables("\'bf\'aa\'b5\'a5").Save()\par
DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Save()\par
\par
\cf2\'bf\'aa\'b5\'a5_Button1_Click\par
\par
\cf3 Dim r As Row=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").AddNew\par
r("\'b5\'a5\'ba\'c5")=e.Form.Controls("txtDh").value\par
\par
\cf2\'bf\'aa\'b5\'a5_Button2_Click\par
\par
\cf3 If Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Current IsNot Nothing Then\par
    Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").current.Delete\par
End If\par
\par
\cf2\'bf\'aa\'b5\'a5_ComboBox1_ValueChanged\par
\par
\cf3 Vars("name")=e.Sender.Value\par
\par
\cf2\'bf\'aa\'b5\'a5_txtDh_ValueChanged\par
\par
\cf3 vars("\'bf\'aa\'b5\'a5\'b5\'a5\'ba\'c5")=e.Sender.Value\par
\par
\cf2\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af_AfterClose\par
\par
\cf3 DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").LoadFilter = "1=1"\par
DataTables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Load\par
\par
\cf2\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af_AfterLoad\par
\par
\cf3 For Each c As WinForm.Control In e.Form.Controls\par
    If TypeOf c Is WinForm.Table Then '\'c5\'d0\'b6\'cf\'bf\'d8\'bc\'fe\'ca\'c7\'b7\'f1\'ca\'c7\'ce\'c4\'b1\'be\'bf\'f2\par
        Dim t As WinForm.Table = c '\'ca\'b9\'d3\'c3\'cc\'d8\'b6\'a8\'c0\'e0\'d0\'cd\'b5\'c4\'b1\'e4\'c1\'bf\'d2\'fd\'d3\'c3\'bf\'d8\'bc\'fe\par
        Dim title As String =t.Name\par
        Dim dr As DataRow\par
        \par
        dr = DataTables("\'d1\'f9\'ca\'bd\'b1\'ed").sqlfind("\'b1\'ed\'c3\'fb='" & title & "' and \'ca\'c7\'b7\'f1\'c6\'f4\'d3\'c3='true'" )\par
        If dr IsNot Nothing Then\par
            If Tables(title) IsNot Nothing Then\par
                Tables(title).SetColVisibleWidth(dr("\'d1\'f9\'ca\'bd"))\par
            End If \par
        End If \par
    End If\par
Next\par
\par
\cf2\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af_Button1_Click\par
\par
\cf3 Dim name As String = e.Form.Controls("txtbox").Value\par
DataTables("\'bf\'aa\'b5\'a5").LoadFilter = "\'bf\'cd\'bb\'a7='" & name & "'"\par
DataTables("\'bf\'aa\'b5\'a5").Load\par
\par
\cf2\'c5\'e4\'d6\'c3_Button1_Click\par
\par
\cf3 DataTables("\'c5\'e4\'d6\'c3\'b1\'ed").Save()\par
e.Form.Close\par
\par
\cf1\'d7\'d4\'b6\'a8\'d2\'e5\'ba\'af\'ca\'fd\par
\par
\cf2\'ce\'de\'b5\'a5\'ce\'bb\'b5\'c4\'c2\'eb\'b5\'a5\par
\par
\cf3 Dim ar As WinForm.Form=args(0)\par
Dim cn As String = args(1)\par
Dim doc As New PrintDoc() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'a8\'b1\'eddoc.PageSetting.Width = 100 '\'d6\'bd\'d5\'c5\'bf\'ed\'b6\'c8\'ce\'aa100\'ba\'c1\'c3\'d7\par
doc.PageSetting.width = 320 '\'d6\'bd\'d5\'c5\'b8\'df\'b6\'c8\'ce\'aa120\'ba\'c1\'c3\'d7\par
Dim printrow As Integer=6\par
\par
Doc.PageSetting.LeftMargin = 10 '\'c9\'e8\'d6\'c3\'d7\'f3\'b1\'df\'be\'e0\par
Doc.PageSetting.RightMargin = 10 '\'c9\'e8\'d6\'c3\'d3\'d2\'b1\'df\'be\'e0\par
Doc.PageSetting.TopMargin = 10 '\'c9\'e8\'d6\'c3\'c9\'cf\'b1\'df\'be\'e0\par
Doc.PageSetting.BottomMargin = 10 '\'c9\'e8\'d6\'c3\'cf\'c2\'b1\'df\'be\'e0\par
\par
\par
Dim rt As New prt.RenderTable() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\par
doc.Body.Children.Add(rt) '\'bd\'ab\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\'bc\'d3\'c8\'eb\'b5\'bd\'b1\'a8\'b1\'ed\'d6\'d0\par
rt.Style.GridLines.All = New prt.Linedef  '\'c9\'e8\'d6\'c3\'cd\'f8\'b8\'f1\'cf\'df\par
rt.CellStyle.Spacing.All = 1 '\'c4\'da\'c8\'dd\'be\'e0\'c0\'eb\'cd\'f8\'b8\'f1\'cf\'df1\'ba\'c1\'c3\'d7\par
\par
\par
Dim rm As New prt.RenderImage() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'cd\'bc\'c6\'ac\'b6\'d4\'cf\'f3\par
If cn = "\'b6\'ab\'c4\'fe" Then\par
    rm.Image = GetImage("dnlogo.jpg")\par
Else\par
    rm.Image = GetImage("logo.jpg") '\'c7\'eb\'b8\'c4\'ce\'aa\'ca\'b5\'bc\'ca\'b5\'c4\'cd\'bc\'b1\'ea\'c3\'fb\'b3\'c6\'ba\'cd\'c2\'b7\'be\'b6 \par
End If \par
\par
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '\'cd\'bc\'c6\'ac\'cb\'ae\'c6\'bd\'be\'d3\'d6\'d0\par
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '\'cd\'bc\'c6\'ac\'b4\'b9\'d6\'b1\'be\'d3\'d6\'d0\par
rm.Style.ImageAlign.StretchHorz = False '\'bd\'fb\'d6\'b9\'cb\'ae\'c6\'bd\'b7\'bd\'cf\'f2\'c0\'a9\'d5\'b9\'cd\'bc\'c6\'ac\par
rm.Style.ImageAlign.StretchVert = False '\'bd\'fb\'d6\'b9\'b4\'b9\'d6\'b1\'b7\'bd\'cf\'f2\'c0\'a9\'d5\'b9\'cd\'bc\'c6\'ac\par
rt.Cells(0,0).RenderObject = rm\par
rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '\'d6\'f7\'b1\'ea\'cc\'e2\'be\'d3\'d6\'d0\par
rt.Cells(0,0).Style.TextAlignVert = prt.AlignVertEnum.Center\par
\par
Dim rrowcount As Integer=Tables("\'c5\'e4\'d6\'c3\'b1\'ed").Compute("count([\'b1\'ea\'cc\'e2])","\'b7\'d6\'c0\'e0='\'b1\'ea\'cc\'e2\'d3\'d2\'cd\'b7'")\par
\par
rt.Cells(0,0).SpanCols = 3 '\'ba\'cf\'b2\'a2\'b5\'da\'d2\'bb\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'d6\'f7\'b1\'ea\'cc\'e2\par
rt.Cells(0,0).SpanRows=rrowcount\par
Dim ii As Integer\par
ii=0\par
For Each rr As Row In Tables("\'c5\'e4\'d6\'c3\'b1\'ed").rows\par
    If rr("\'b7\'d6\'c0\'e0")="\'b1\'ea\'cc\'e2\'d3\'d2\'cd\'b7" Then\par
        rt.cells(ii,3).text=rr("\'c4\'da\'c8\'dd")\par
        rt.cells(ii,3).SpanCols=3\par
        rt.Cells(ii,3).Style.TextAlignHorz = prt.AlignHorzEnum.left\par
        rt.Cells(ii,3).Style.TextAlignVert = prt.AlignVertEnum.Bottom\par
        If rr("\'b1\'ea\'cc\'e2")="\'b9\'e3\'b8\'e6" Then\par
            rt.Cells(ii,3).Style.Font=New Font("\'c1\'a5\'ca\'e9", 12, FontStyle.Regular) \par
        Else\par
            rt.Cells(ii,3).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 12, FontStyle.Regular) '\'c9\'e8\'d6\'c3\'b9\'e3\'b8\'e6\'b5\'e7\'bb\'b0\'b5\'d8\'d6\'b7\'b5\'c4\'d7\'d6\'cc\'e5\par
            \par
        End If\par
        rt.Cells(ii,3).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'d2\'bb\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
        ii=ii+1\par
    End If\par
Next\par
rt.cells(0,0).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
\par
\par
'\'c9\'e8\'d6\'c3\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+1,0).text = "<\'cf\'fa\'ca\'db\'b5\'a5>" '\'cd\'a8\'b9\'fd\'d7\'f3\'b1\'df\'bf\'d5\'b8\'f1\'ca\'fd\'c1\'bf\'c0\'b4\'b5\'f7\'d5\'fb\'b8\'b1\'b1\'ea\'cc\'e2\'ce\'bb\'d6\'c3\par
rt.Cells(rrowcount+1,0).SpanCols = 6 '\'ba\'cf\'b2\'a2\'b5\'d8\'b6\'fe\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '\'b8\'b1\'b1\'ea\'cc\'e2\'c4\'da\'c8\'dd\'be\'d3\'d6\'d0\par
rt.Rows(rrowcount+1).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
rt.Rows(rrowcount+1).Height = 8 '\'c9\'e8\'d6\'c3\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'b8\'df\'b6\'c8,\'c0\'ad\'bf\'aa\'ba\'cd\'b1\'ed\'b8\'f1\'d6\'f7\'cc\'e5\'b5\'c4\'be\'e0\'c0\'eb.\par
\par
'\'c9\'e8\'d6\'c3\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+2,0).text = "\'bf\'cd\'bb\'a7:" '\'cd\'a8\'b9\'fd\'d7\'f3\'b1\'df\'bf\'d5\'b8\'f1\'ca\'fd\'c1\'bf\'c0\'b4\'b5\'f7\'d5\'fb\'b8\'b1\'b1\'ea\'cc\'e2\'ce\'bb\'d6\'c3\par
rt.Cells(rrowcount+2,1).SpanCols = 2 '\'ba\'cf\'b2\'a2\'b5\'d8\'b6\'fe\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.cells(rrowcount+2,1).Text=ar.Controls("ComboBox1").value\par
rt.cells(rrowcount+2,3).text="\'c8\'d5\'c6\'da:"\par
rt.cells(rrowcount+2,4).SpanCols=2\par
rt.cells(rrowcount+2,4).Text=ar.Controls("DateTimePicker1").value\par
Dim i As Integer\par
For i =0 To 5\par
    rt.cells(rrowcount+2,i).Style.Borders.All = New prt.LineDef("0mm", Color.white)\par
Next\par
rt.Rows(rrowcount+2).Style.Font = New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da",12, FontStyle.Regular) '\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6 \'c8\'d5\'c6\'da\'d7\'d6\'cc\'e5\par
rt.cells(rrowcount+2,0).Style.TextAlignHorz = prt.AlignHorzEnum.right\par
rt.cells(rrowcount+2,3).Style.TextAlignHorz = prt.AlignHorzEnum.right\par
rt.cells(rrowcount+2,4).Style.TextAlignHorz= prt.AlignHorzEnum.left\par
rt.cells(rrowcount+2,1).Style.TextAlignHorz = prt.AlignHorzEnum.left\par
rt.Rows(rrowcount+2).Height = 8 '\'c9\'e8\'d6\'c3\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'b8\'df\'b6\'c8,\'c0\'ad\'bf\'aa\'ba\'cd\'b1\'ed\'b8\'f1\'d6\'f7\'cc\'e5\'b5\'c4\'be\'e0\'c0\'eb.\par
\par
\par
\par
Dim rt1 As New prt.RenderTable() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\par
doc.Body.Children.Add(rt1) '\'bd\'ab\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\'bc\'d3\'c8\'eb\'b5\'bd\'b1\'a8\'b1\'ed\'d6\'d0\par
rt1.Style.GridLines.All = New prt.Linedef  '\'c9\'e8\'d6\'c3\'cd\'f8\'b8\'f1\'cf\'df\par
rt1.CellStyle.Spacing.All = 1 '\'c4\'da\'c8\'dd\'be\'e0\'c0\'eb\'cd\'f8\'b8\'f1\'cf\'df1\'ba\'c1\'c3\'d7\par
rt1.Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 11, FontStyle.Regular) '\'c9\'e8\'d6\'c3\'b1\'ed\'b8\'f1\'d7\'d6\'cc\'e5\'b4\'f3\'d0\'a1\par
'\'c9\'e8\'d6\'c3\'c1\'d0\'b1\'ea\'cc\'e2\par
\par
rt1.Rows(0).Height=10\par
rt1.Rows(0).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 12, FontStyle.Bold) '\'c9\'e8\'d6\'c3\'b1\'ed\'cd\'b7\'d7\'d6\'cc\'e5\par
\par
rt1.cells(0,0).SpanCols = 3  '\'ba\'cf\'b2\'a2\'b5\'da\'d2\'bb\'d0\'d0\'c7\'b0\'c8\'fd\'b8\'f6\'b5\'a5\'d4\'aa\'b8\'f1\par
rt1.cells(0,0).Text = "\'c9\'cc\'c6\'b7-\'d1\'d5\'c9\'ab"  '\'c9\'e8\'d6\'c3\'b5\'da\'d2\'bb\'d0\'d0\'b5\'da\'d2\'bb\'b8\'f6\'b5\'a5\'d4\'aa\'b8\'f1\'b5\'c4\'c4\'da\'c8\'dd\par
\par
Dim n As Integer\par
For n=3 To 12\par
    rt1.Cols(n).Width=16\par
    rt1.cells(0,n).Text=n-2\par
Next\par
\par
rt1.cells(0,13).Text="\'ca\'fd\'c1\'bf"\par
rt1.Cols(13).Width=17\par
rt1.cells(0,14).Text="\'b5\'a5\'bc\'db"\par
rt1.Cols(14).Width=15\par
rt1.cells(0,15).Text="\'b8\'bd\'bc\'d3\'b7\'d1"\par
rt1.cols(15).Width=17\par
rt1.cells(0,16).Text="\'bd\'f0\'b6\'ee"\par
rt1.Cols(16).width=21\par
rt1.Style.TextAlignHorz=prt.AlignHorzEnum.Center\par
rt1.Style.TextAlignVert=prt.AlignVertEnum.Center\par
Dim rnum As Integer\par
Dim rstotle As Integer=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows.Count\par
For rnum=0 To Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows.Count-1\par
    rt1.cells(rnum+1,0).text=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'c9\'cc\'c6\'b7")\par
    rt1.cells(rnum+1,0).SpanCols=3\par
    rt1.cells(rnum+1,3).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf1") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf1"),"")\par
    rt1.cells(rnum+1,4).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf2") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf2"),"")\par
    rt1.cells(rnum+1,5).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf3") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf3"),"")\par
    rt1.cells(rnum+1,6).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf4") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf4"),"")\par
    rt1.cells(rnum+1,7).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf5") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf5"),"")\par
    rt1.cells(rnum+1,8).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf6") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf6"),"")\par
    rt1.cells(rnum+1,9).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf7") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf7"),"")\par
    rt1.cells(rnum+1,10).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf8") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf8"),"")\par
    rt1.cells(rnum+1,11).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf9") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf9"),"")\par
    rt1.cells(rnum+1,12).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf10") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf10"),"")\par
    rt1.cells(rnum+1,13).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'d7\'dc\'ca\'fd") <>"0",Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'d7\'dc\'ca\'fd"),"0.0"),"")\par
    \par
    rt1.cells(rnum+1,14).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b5\'a5\'bc\'db") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b5\'a5\'bc\'db"),"")\par
    rt1.cells(rnum+1,15).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b8\'bd\'bc\'d3\'b7\'d1") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b8\'bd\'bc\'d3\'b7\'d1"),"")\par
    rt1.cells(rnum+1,16).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'bd\'f0\'b6\'ee") <>"0",Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'bd\'f0\'b6\'ee"),"0.0"),"")\par
    \par
    rt1.Rows(rnum+1).Height=8\par
    \par
Next\par
Dim j As Integer\par
Dim jnum As Integer\par
\par
If rstotle<printrow  Then\par
    For jnum = 1 To printrow -rstotle\par
        rt1.cells(jnum +rstotle,0).text=""\par
        rt1.cells(jnum +rstotle,0).SpanCols=3\par
        For j=2 To 16\par
            rt1.cells(jnum +rstotle,j).text=""\par
        Next\par
        rt1.Rows(jnum+rstotle).Style.TextAlignHorz=prt.AlignHorzEnum.Center\par
        rt1.Rows(jnum+rstotle).Style.TextAlignVert=prt.AlignVertEnum.Center\par
        rt1.Rows(jnum+rstotle).Height=8\par
    Next\par
End If\par
\par
rt1.RowGroups(0,1).Header = prt.TableHeaderEnum.All  '\'c7\'b01\'d0\'d0\'d7\'f7\'ce\'aa\'b1\'ed\'cd\'b7\par
\par
\par
Dim rtrowcount As Integer=rt1.Rows.count\par
rt1.cells(rtrowcount+1,0).Text="\'ba\'cf\'bc\'c6:"\par
rt1.cells(rtrowcount+1,0).SpanCols=3\par
rt1.cells(rtrowcount+1,3).Text=CUMoney(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"))\par
rt1.cells(rtrowcount+1,3).SpanCols=10\par
rt1.cells(rtrowcount+1,13).text=Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'d7\'dc\'ca\'fd)"),"0.0")\par
rt1.cells(rtrowcount+1,13).SpanCols=2\par
rt1.cells(rtrowcount+1,15).text=vars("count") & "\'c6\'a5"\par
rt1.cells(rtrowcount+1,16).text=Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"),"0.0") & "\'d4\'aa"\par
\par
rt1.cells(rtrowcount+2,0).text="\'b1\'be\'b5\'a5\'bd\'f0\'b6\'ee:    " & Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"),"0.00") & "        \'ca\'b5\'ca\'d5\'bd\'f0\'b6\'ee:    " & ar.Controls("txtTotalMoney1").value\par
rt1.cells(rtrowcount+2,0).SpanCols=13\par
\par
rt1.cells(rtrowcount+2,13).text="\'ca\'d5\'bb\'f5\'c7\'a9\'d7\'d6:"\par
rt1.cells(rtrowcount+2,13).SpanCols=4\par
rt1.cells(rtrowcount+2,13).Style.TextAlignHorz=prt.AlignHorzEnum.Left\par
\par
rt1.cells(rtrowcount+3,0).text="\'b5\'da\'d2\'bb\'c1\'aa\'b4\'e6\'b8\'f9(\'b0\'d7)\'b5\'da\'b6\'fe\'c1\'aa\'bf\'cd\'bb\'a7(\'ba\'ec)\'b5\'da\'c8\'fd\'c1\'aa\'b2\'c6\'ce\'f1(\'bb\'c6)"\par
rt1.cells(rtrowcount+3,0).SpanCols=17\par
rt1.cells(rtrowcount+3,0).Style.TextAlignHorz=prt.AlignHorzEnum.center\par
\par
rt1.Rows(rtrowcount+1).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 10, FontStyle.Bold)\par
rt1.Rows(rtrowcount+1).Height=12\par
\par
rt1.Rows(rtrowcount+2).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 11, FontStyle.Bold)\par
rt1.Rows(rtrowcount+2).Height=14\par
\par
rt1.rows(rtrowcount+1).Style.TextAlignVert=prt.AlignVertEnum.Center\par
rt1.Rows(rtrowcount+2).Style.TextAlignVert=prt.AlignVertEnum.Center\par
\par
\par
\par
Dim rtxt As New prt.RenderText\par
rtxt.Text="\'c8\'e7\'b7\'a2\'cf\'d6\'b2\'fa\'c6\'b7\'ca\'fd\'c1\'bf\'b5\'c8\'b2\'bb\'b7\'fb\'bb\'f2\'d6\'ca\'c1\'bf\'ce\'ca\'cc\'e2,\'c7\'eb\'d4\'da7\'cc\'ec\'c4\'da\'cf\'f2\'ce\'d2\'cb\'be\'cc\'e1\'b3\'f6\'cd\'a8\'d6\'aa,\'d3\'e2\'c6\'da \'b2\'c3\'bc\'f4\'bb\'f2\'d5\'df\'c9\'ee\'bc\'d3\'b9\'a4\'cb\'a1\'b2\'bb\'b8\'ba\'d4\'f0,\'b1\'be\'b5\'a5\'be\'dd\'be\'ad\'bf\'cd\'bb\'a7\'c8\'cf\'bf\'c9\'ba\'f3,\'d7\'f7\'ce\'aa\'c7\'b7\'bf\'ee\'c6\'be\'d6\'a4,\'b4\'ab\'d5\'e6\'bc\'fe\'cd\'ac\'d1\'f9\'d3\'d0\'d0\'a7"\par
doc.Body.Children.Add(rtxt)\par
doc.Preview() '\'d4\'a4\'c0\'c0\par
\par
\cf2\'d0\'c2\'d4\'f6\'bf\'aa\'b5\'a5\par
\par
\cf3 Dim r As Row=Tables("\'bf\'aa\'b5\'a5").AddNew\par
Dim dr As Row=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").AddNew\par
r("\'c8\'d5\'c6\'da")=Date.Today\par
r("\'b5\'a5\'ba\'c5")=Format(Date.Now,"yyyyMMddhhmmss")\par
dr("\'b5\'a5\'ba\'c5")=r("\'b5\'a5\'ba\'c5")\par
Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Filter="\'b5\'a5\'ba\'c5='" & r("\'b5\'a5\'ba\'c5") & "'"\par
\par
\cf2\'d3\'d0\'b5\'a5\'ce\'bb\'b5\'c4\'c2\'eb\'b5\'a5\par
\par
\cf3 Dim ar As WinForm.Form=args(0)\par
\par
Dim doc As New PrintDoc() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'a8\'b1\'eddoc.PageSetting.Width = 100 '\'d6\'bd\'d5\'c5\'bf\'ed\'b6\'c8\'ce\'aa100\'ba\'c1\'c3\'d7\par
doc.PageSetting.width = 320 '\'d6\'bd\'d5\'c5\'b8\'df\'b6\'c8\'ce\'aa120\'ba\'c1\'c3\'d7\par
Dim printrow As Integer=6\par
\par
Doc.PageSetting.LeftMargin = 10 '\'c9\'e8\'d6\'c3\'d7\'f3\'b1\'df\'be\'e0\par
Doc.PageSetting.RightMargin = 10 '\'c9\'e8\'d6\'c3\'d3\'d2\'b1\'df\'be\'e0\par
Doc.PageSetting.TopMargin = 10 '\'c9\'e8\'d6\'c3\'c9\'cf\'b1\'df\'be\'e0\par
Doc.PageSetting.BottomMargin = 10 '\'c9\'e8\'d6\'c3\'cf\'c2\'b1\'df\'be\'e0\par
\par
\par
Dim rt As New prt.RenderTable() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\par
doc.Body.Children.Add(rt) '\'bd\'ab\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\'bc\'d3\'c8\'eb\'b5\'bd\'b1\'a8\'b1\'ed\'d6\'d0\par
rt.Style.GridLines.All = New prt.Linedef  '\'c9\'e8\'d6\'c3\'cd\'f8\'b8\'f1\'cf\'df\par
rt.CellStyle.Spacing.All = 1 '\'c4\'da\'c8\'dd\'be\'e0\'c0\'eb\'cd\'f8\'b8\'f1\'cf\'df1\'ba\'c1\'c3\'d7\par
\par
\par
Dim rm As New prt.RenderImage() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'cd\'bc\'c6\'ac\'b6\'d4\'cf\'f3\par
rm.Image = GetImage("logo.jpg") '\'c7\'eb\'b8\'c4\'ce\'aa\'ca\'b5\'bc\'ca\'b5\'c4\'cd\'bc\'b1\'ea\'c3\'fb\'b3\'c6\'ba\'cd\'c2\'b7\'be\'b6\par
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '\'cd\'bc\'c6\'ac\'cb\'ae\'c6\'bd\'be\'d3\'d6\'d0\par
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center '\'cd\'bc\'c6\'ac\'b4\'b9\'d6\'b1\'be\'d3\'d6\'d0\par
rm.Style.ImageAlign.StretchHorz = False '\'bd\'fb\'d6\'b9\'cb\'ae\'c6\'bd\'b7\'bd\'cf\'f2\'c0\'a9\'d5\'b9\'cd\'bc\'c6\'ac\par
rm.Style.ImageAlign.StretchVert = False '\'bd\'fb\'d6\'b9\'b4\'b9\'d6\'b1\'b7\'bd\'cf\'f2\'c0\'a9\'d5\'b9\'cd\'bc\'c6\'ac\par
rt.Cells(0,0).RenderObject = rm\par
rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '\'d6\'f7\'b1\'ea\'cc\'e2\'be\'d3\'d6\'d0\par
rt.Cells(0,0).Style.TextAlignVert = prt.AlignVertEnum.Center\par
\par
Dim rrowcount As Integer=Tables("\'c5\'e4\'d6\'c3\'b1\'ed").Compute("count([\'b1\'ea\'cc\'e2])","\'b7\'d6\'c0\'e0='\'b1\'ea\'cc\'e2\'d3\'d2\'cd\'b7'")\par
\par
rt.Cells(0,0).SpanCols = 3 '\'ba\'cf\'b2\'a2\'b5\'da\'d2\'bb\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'d6\'f7\'b1\'ea\'cc\'e2\par
rt.Cells(0,0).SpanRows=rrowcount\par
Dim ii As Integer\par
ii=0\par
For Each rr As Row In Tables("\'c5\'e4\'d6\'c3\'b1\'ed").rows\par
    If rr("\'b7\'d6\'c0\'e0")="\'b1\'ea\'cc\'e2\'d3\'d2\'cd\'b7" Then\par
        rt.cells(ii,3).text=rr("\'c4\'da\'c8\'dd")\par
        rt.cells(ii,3).SpanCols=3\par
        rt.Cells(ii,3).Style.TextAlignHorz = prt.AlignHorzEnum.left\par
        rt.Cells(ii,3).Style.TextAlignVert = prt.AlignVertEnum.Bottom\par
        If rr("\'b1\'ea\'cc\'e2")="\'b9\'e3\'b8\'e6" Then\par
            rt.Cells(ii,3).Style.Font=New Font("\'c1\'a5\'ca\'e9", 12, FontStyle.Regular)\par
        Else\par
             rt.Cells(ii,3).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 12, FontStyle.Regular) '\'c9\'e8\'d6\'c3\'b9\'e3\'b8\'e6\'b5\'e7\'bb\'b0\'b5\'d8\'d6\'b7\'b5\'c4\'d7\'d6\'cc\'e5\par
\par
        End If\par
               rt.Cells(ii,3).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'d2\'bb\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
        ii=ii+1\par
    End If\par
Next\par
rt.cells(0,0).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
\par
\par
'\'c9\'e8\'d6\'c3\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+1,0).text = "<\'cf\'fa\'ca\'db\'b5\'a5>" '\'cd\'a8\'b9\'fd\'d7\'f3\'b1\'df\'bf\'d5\'b8\'f1\'ca\'fd\'c1\'bf\'c0\'b4\'b5\'f7\'d5\'fb\'b8\'b1\'b1\'ea\'cc\'e2\'ce\'bb\'d6\'c3\par
rt.Cells(rrowcount+1,0).SpanCols = 6 '\'ba\'cf\'b2\'a2\'b5\'d8\'b6\'fe\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '\'b8\'b1\'b1\'ea\'cc\'e2\'c4\'da\'c8\'dd\'be\'d3\'d6\'d0\par
rt.Rows(rrowcount+1).Style.Borders.All = New prt.LineDef("0mm", Color.white) '\'c8\'a5\'b5\'f4\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'cd\'f8\'b8\'f1\'cf\'df\par
rt.Rows(rrowcount+1).Height = 8 '\'c9\'e8\'d6\'c3\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'b8\'df\'b6\'c8,\'c0\'ad\'bf\'aa\'ba\'cd\'b1\'ed\'b8\'f1\'d6\'f7\'cc\'e5\'b5\'c4\'be\'e0\'c0\'eb.\par
\par
'\'c9\'e8\'d6\'c3\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.Cells(rrowcount+2,0).text = "\'bf\'cd\'bb\'a7:" '\'cd\'a8\'b9\'fd\'d7\'f3\'b1\'df\'bf\'d5\'b8\'f1\'ca\'fd\'c1\'bf\'c0\'b4\'b5\'f7\'d5\'fb\'b8\'b1\'b1\'ea\'cc\'e2\'ce\'bb\'d6\'c3\par
rt.Cells(rrowcount+2,1).SpanCols = 2 '\'ba\'cf\'b2\'a2\'b5\'d8\'b6\'fe\'d0\'d0\'c8\'ab\'b2\'bf\'b5\'a5\'d4\'aa\'b8\'f1,\'d3\'c3\'d3\'da\'cf\'d4\'ca\'be\'b8\'b1\'b1\'ea\'cc\'e2\par
rt.cells(rrowcount+2,1).Text=ar.Controls("ComboBox1").value\par
rt.cells(rrowcount+2,3).text="\'c8\'d5\'c6\'da:"\par
rt.cells(rrowcount+2,4).SpanCols=2\par
rt.cells(rrowcount+2,4).Text=ar.Controls("DateTimePicker1").value\par
Dim i As Integer\par
For i =0 To 5\par
    rt.cells(rrowcount+2,i).Style.Borders.All = New prt.LineDef("0mm", Color.white)\par
Next\par
rt.Rows(rrowcount+2).Style.Font = New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da",12, FontStyle.Regular) '\'bf\'cd\'bb\'a7\'c3\'fb\'b3\'c6 \'c8\'d5\'c6\'da\'d7\'d6\'cc\'e5\par
rt.cells(rrowcount+2,0).Style.TextAlignHorz = prt.AlignHorzEnum.right\par
rt.cells(rrowcount+2,3).Style.TextAlignHorz = prt.AlignHorzEnum.right\par
rt.cells(rrowcount+2,4).Style.TextAlignHorz= prt.AlignHorzEnum.left\par
rt.cells(rrowcount+2,1).Style.TextAlignHorz = prt.AlignHorzEnum.left\par
rt.Rows(rrowcount+2).Height = 8 '\'c9\'e8\'d6\'c3\'b5\'da\'b6\'fe\'d0\'d0\'b5\'c4\'b8\'df\'b6\'c8,\'c0\'ad\'bf\'aa\'ba\'cd\'b1\'ed\'b8\'f1\'d6\'f7\'cc\'e5\'b5\'c4\'be\'e0\'c0\'eb.\par
\par
\par
Dim rt1 As New prt.RenderTable() '\'b6\'a8\'d2\'e5\'d2\'bb\'b8\'f6\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\par
doc.Body.Children.Add(rt1) '\'bd\'ab\'b1\'ed\'b8\'f1\'b6\'d4\'cf\'f3\'bc\'d3\'c8\'eb\'b5\'bd\'b1\'a8\'b1\'ed\'d6\'d0\par
rt1.Style.GridLines.All = New prt.Linedef  '\'c9\'e8\'d6\'c3\'cd\'f8\'b8\'f1\'cf\'df\par
rt1.Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 10, FontStyle.Regular) '\'c9\'e8\'d6\'c3\'b1\'ed\'b8\'f1\'d7\'d6\'cc\'e5\'b4\'f3\'d0\'a1\par
rt1.CellStyle.Spacing.All = 1 '\'c4\'da\'c8\'dd\'be\'e0\'c0\'eb\'cd\'f8\'b8\'f1\'cf\'df1\'ba\'c1\'c3\'d7\par
\par
rt1.Rows(0).Height=10\par
rt1.Rows(0).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 11, FontStyle.Bold) '\'c9\'e8\'d6\'c3\'b1\'ed\'cd\'b7\'d7\'d6\'cc\'e5\par
'\'c9\'e8\'d6\'c3\'c1\'d0\'b1\'ea\'cc\'e2\par
rt1.cells(0,0).SpanCols = 2  '\'ba\'cf\'b2\'a2\'b5\'da\'d2\'bb\'d0\'d0\'c7\'b0\'c8\'fd\'b8\'f6\'b5\'a5\'d4\'aa\'b8\'f1\par
\par
rt1.cells(0,0).Text = "\'c9\'cc\'c6\'b7-\'d1\'d5\'c9\'ab"  '\'c9\'e8\'d6\'c3\'b5\'da\'d2\'bb\'d0\'d0\'b5\'da\'d2\'bb\'b8\'f6\'b5\'a5\'d4\'aa\'b8\'f1\'b5\'c4\'c4\'da\'c8\'dd\par
rt1.Cells(0,2).Text = "\'b5\'a5\'ce\'bb"  '\'c9\'e8\'d6\'c3\'b5\'da\'d2\'bb\'d0\'d0\'b5\'da\'cb\'c4\'b8\'f6\'b5\'a5\'d4\'aa\'b8\'f1\'b5\'c4\'c4\'da\'c8\'dd\par
rt1.Cols(2).Width=12 '\'b5\'a5\'ce\'bb\'c1\'d0\'b5\'c4\'bf\'ed\'b6\'c8\par
Dim n As Integer\par
For n=3 To 14\par
    rt1.Cols(n).Width=16\par
    rt1.Cells(0,n).Text=n-2\par
    \par
Next\par
\par
rt1.cells(0,13).Text="\'ca\'fd\'c1\'bf"\par
rt1.Cols(13).Width=17\par
rt1.cells(0,14).Text="\'b5\'a5\'bc\'db"\par
rt1.Cols(14).Width=15\par
rt1.cells(0,15).Text="\'b8\'bd\'bc\'d3\'b7\'d1"\par
rt1.Cols(15).Width=17\par
rt1.cells(0,16).Text="\'bd\'f0\'b6\'ee"\par
rt1.Cols(16).width=21\par
rt1.Style.TextAlignHorz=prt.AlignHorzEnum.Center\par
rt1.Style.TextAlignVert=prt.AlignVertEnum.Center\par
Dim rnum As Integer\par
Dim rstotle As Integer=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows.Count\par
\par
For rnum=0 To Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows.Count-1\par
    rt1.cells(rnum+1,0).text=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'c9\'cc\'c6\'b7")\par
    rt1.cells(rnum+1,0).SpanCols=2\par
    rt1.cells(rnum+1,2).text=Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b5\'a5\'ce\'bb")\par
    rt1.cells(rnum+1,3).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf1") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf1"),"")\par
    rt1.cells(rnum+1,4).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf2") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf2"),"")\par
    rt1.cells(rnum+1,5).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf3") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf3"),"")\par
    rt1.cells(rnum+1,6).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf4") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf4"),"")\par
    rt1.cells(rnum+1,7).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf5") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf5"),"")\par
    rt1.cells(rnum+1,8).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf6") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf6"),"")\par
    rt1.cells(rnum+1,9).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf7") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf7"),"")\par
    rt1.cells(rnum+1,10).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf8") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf8"),"")\par
    rt1.cells(rnum+1,11).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf9") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf9"),"")\par
    rt1.cells(rnum+1,12).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf10") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'ca\'fd\'c1\'bf10"),"")\par
    rt1.cells(rnum+1,13).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'d7\'dc\'ca\'fd") <>"0",Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'d7\'dc\'ca\'fd"),"0.0"),"")\par
    rt1.cells(rnum+1,14).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b5\'a5\'bc\'db") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b5\'a5\'bc\'db"),"")\par
    rt1.cells(rnum+1,15).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b8\'bd\'bc\'d3\'b7\'d1") <>"0",Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'b8\'bd\'bc\'d3\'b7\'d1"),"")\par
    rt1.cells(rnum+1,16).text=iif(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'bd\'f0\'b6\'ee") <>"0",Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Rows(rnum)("\'bd\'f0\'b6\'ee"),"0.0"),"")\par
\par
    rt1.Rows(rnum+1).Height=8\par
    \par
Next\par
Dim j As Integer\par
Dim jnum As Integer\par
If rstotle<printrow Then\par
    For jnum = 1 To printrow-rstotle\par
        rt1.cells(jnum +rstotle,0).text=""\par
        rt1.cells(jnum +rstotle,0).SpanCols=2\par
        For j=2 To 16\par
            rt1.cells(jnum +rstotle,j).text=""\par
        Next\par
        rt1.Rows(jnum+rstotle).Style.TextAlignHorz=prt.AlignHorzEnum.Center\par
        rt1.Rows(jnum+rstotle).Style.TextAlignVert=prt.AlignVertEnum.Center\par
        rt1.Rows(jnum+rstotle).Height=8\par
    Next\par
End If\par
rt1.RowGroups(0,1).Header = prt.TableHeaderEnum.All  '\'c7\'b01\'d0\'d0\'d7\'f7\'ce\'aa\'b1\'ed\'cd\'b7\par
\par
\par
Dim rtrowcount As Integer=rt1.Rows.count\par
rt1.cells(rtrowcount+1,0).Text="\'ba\'cf\'bc\'c6:"\par
rt1.cells(rtrowcount+1,0).SpanCols=3\par
rt1.cells(rtrowcount+1,3).Text=CUMoney(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"))\par
rt1.cells(rtrowcount+1,3).SpanCols=10\par
rt1.cells(rtrowcount+1,13).text= Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'d7\'dc\'ca\'fd)"),"0.0")\par
rt1.cells(rtrowcount+1,13).SpanCols=2\par
rt1.cells(rtrowcount+1,15).text= vars("count") & "\'c6\'a5"\par
\par
\par
rt1.cells(rtrowcount+1,16).text=Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"),"0.0") & "\'d4\'aa"\par
\par
rt1.cells(rtrowcount+2,0).text="\'b1\'be\'b5\'a5\'bd\'f0\'b6\'ee:    " & Format(Tables("\'bf\'aa\'b5\'a5\'d7\'d3\'b1\'ed").Compute("sum(\'bd\'f0\'b6\'ee)"),"0.00") & "        \'ca\'b5\'ca\'d5\'bd\'f0\'b6\'ee:    " & ar.Controls("txtTotalMoney1").value\par
rt1.cells(rtrowcount+2,0).SpanCols=13\par
\par
rt1.cells(rtrowcount+2,13).text="\'ca\'d5\'bb\'f5\'c7\'a9\'d7\'d6:"\par
rt1.cells(rtrowcount+2,13).SpanCols=4\par
rt1.cells(rtrowcount+2,13).Style.TextAlignHorz=prt.AlignHorzEnum.Left\par
\par
rt1.cells(rtrowcount+3,0).text="\'b5\'da\'d2\'bb\'c1\'aa\'b4\'e6\'b8\'f9(\'b0\'d7)\'b5\'da\'b6\'fe\'c1\'aa\'bf\'cd\'bb\'a7(\'ba\'ec)\'b5\'da\'c8\'fd\'c1\'aa\'b2\'c6\'ce\'f1(\'bb\'c6)"\par
rt1.cells(rtrowcount+3,0).SpanCols=17\par
rt1.cells(rtrowcount+3,0).Style.TextAlignHorz=prt.AlignHorzEnum.center\par
\par
rt1.Rows(rtrowcount+1).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 11, FontStyle.Bold)\par
rt1.Rows(rtrowcount+1).Height=12\par
\par
rt1.Rows(rtrowcount+2).Style.Font=New Font("\'ce\'a2\'c8\'ed\'d1\'c5\'ba\'da", 12, FontStyle.Bold)\par
rt1.Rows(rtrowcount+2).Height=14\par
\par
rt1.rows(rtrowcount+1).Style.TextAlignVert=prt.AlignVertEnum.Center\par
rt1.Rows(rtrowcount+2).Style.TextAlignVert=prt.AlignVertEnum.Center\par
\par
\par
\par
Dim rtxt As New prt.RenderText\par
rtxt.Text="\'c8\'e7\'b7\'a2\'cf\'d6\'b2\'fa\'c6\'b7\'ca\'fd\'c1\'bf\'b5\'c8\'b2\'bb\'b7\'fb\'bb\'f2\'d6\'ca\'c1\'bf\'ce\'ca\'cc\'e2,\'c7\'eb\'d4\'da7\'cc\'ec\'c4\'da\'cf\'f2\'ce\'d2\'cb\'be\'cc\'e1\'b3\'f6\'cd\'a8\'d6\'aa,\'d3\'e2\'c6\'da \'b2\'c3\'bc\'f4\'bb\'f2\'d5\'df\'c9\'ee\'bc\'d3\'b9\'a4\'cb\'a1\'b2\'bb\'b8\'ba\'d4\'f0,\'b1\'be\'b5\'a5\'be\'dd\'be\'ad\'bf\'cd\'bb\'a7\'c8\'cf\'bf\'c9\'ba\'f3,\'d7\'f7\'ce\'aa\'c7\'b7\'bf\'ee\'c6\'be\'d6\'a4,\'b4\'ab\'d5\'e6\'bc\'fe\'cd\'ac\'d1\'f9\'d3\'d0\'d0\'a7"\par
doc.Body.Children.Add(rtxt)\par
doc.Preview() '\'d4\'a4\'c0\'c0\par
\par
\cf1\'c8\'ab\'be\'d6\'b4\'fa\'c2\'eb\par
\par
\'b2\'cb\'b5\'a5\'ca\'c2\'bc\'fe\par
\par
\cf2 _AfterSelRangeChange\par
\par
\cf3 Dim t As Table\par
RibbonMenu.StatusBar.Message3 = ""\par
Vars("SysUpdateAggregate") = False\par
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then\par
    Return\par
Else\par
    t = CurrentTable\par
End If\par
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then\par
    Return\par
End If\par
For c As Integer = t.LeftCol To t.RightCol \par
    If t.Cols(c).IsNumeric = False Then\par
        Return\par
    End If\par
Next\par
Vars("SysUpdateAggregate") =  True\par
\par
\cf2 _CurrentTableChanged\par
\par
\cf3 Vars("SysUpdatePrintInfo") = True\par
\par
\cf2 _Load\par
\par
\cf3 '\'d2\'d4\'cf\'c2\'b4\'fa\'c2\'eb\'d3\'c3\'d3\'da\'bd\'abCell\'bf\'ec\'bd\'dd\'b2\'cb\'b5\'a5\'d6\'d0\'b2\'bf\'b7\'d6\'c3\'fc\'c1\'ee\'b8\'b4\'d6\'c6\'b5\'bdRange\'bf\'ec\'bd\'dd\'b2\'cb\'b5\'a5\'d6\'d0\par
'\'c8\'e7\'b9\'fb\'d7\'d4\'d0\'d0\'c9\'e8\'bc\'c6\'c1\'cbRange\'b2\'cb\'b5\'a5,\'bb\'f2\'d5\'df\'b5\'f7\'d5\'fb\'c1\'cb\'d3\'d0\'b9\'d8\'b2\'cb\'b5\'a5\'c3\'fc\'c1\'ee\'b5\'c4\'c3\'fb\'b3\'c6,\'c7\'eb\'d7\'d4\'d0\'d0\'d0\'de\'b8\'c4\'bb\'f2\'c9\'be\'b3\'fd\'d2\'d4\'cf\'c2\'b4\'fa\'c2\'eb\par
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")\par
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")\par
If mnu2.Items.Count = 0 '\'c8\'e7\'b9\'fbRange\'bf\'ec\'bd\'dd\'b2\'cb\'b5\'a5\'d6\'d0\'c3\'bb\'d3\'d0\'c3\'fc\'c1\'ee,\'cb\'b5\'c3\'f7\'d3\'c3\'bb\'a7\'c3\'bb\'d3\'d0\'d7\'d4\'d0\'d0\'c9\'e8\'bc\'c6Range\'bf\'ec\'bd\'dd\'b2\'cb\'b5\'a5\par
    mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)\par
    mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))\par
    mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))\par
End If\par
\par
\cf2 CaseStudy_Click\par
\par
\cf3 Syscmd.Project.OpenCaseStudy()\par
\par
\cf2 Cell_Ascending_Click\par
\par
\cf3 Syscmd.Sort.Ascending()\par
\par
\cf2 Cell_ColMenu_Add_AddDataCol_Click\par
\par
\cf3 Syscmd.Column.AddDataColumn()\par
\par
\cf2 Cell_ColMenu_Add_AddExprCol_Click\par
\par
\cf3 Syscmd.Column.AddExpressionColumn()\par
\par
\cf2 Cell_ColMenu_Delete_Click\par
\par
\cf3 Syscmd.Column.Delete()\par
\par
\cf2 Cell_ColMenu_Expression_Click\par
\par
\cf3 Syscmd.Column.EditExpression()\par
\par
\cf2 Cell_ColMenu_Freeze_Click\par
\par
\cf3 Syscmd.Column.Freeze()\par
\par
\cf2 Cell_ColMenu_Hide_Click\par
\par
\cf3 Syscmd.Column.Hide()\par
\par
\cf2 Cell_ColMenu_Insert_InsertDataCol_Click\par
\par
\cf3 Syscmd.Column.InsertDataColumn()\par
\par
\cf2 Cell_ColMenu_Insert_InsertExprCol_Click\par
\par
\cf3 Syscmd.Column.InsertExpressionColumn()\par
\par
\cf2 Cell_ColMenu_Lock_Click\par
\par
\cf3 Syscmd.Column.Lock()\par
\par
\cf2 Cell_ColMenu_Modify_Click\par
\par
\cf3 Syscmd.Column.Modify()\par
\par
\cf2 Cell_ColMenu_MoveLeft_Click\par
\par
\cf3 Syscmd.Column.MoveLeft()\par
\par
\cf2 Cell_ColMenu_MoveRight_Click\par
\par
\cf3 Syscmd.Column.MoveRight()\par
\par
\cf2 Cell_ColMenu_Property_Click\par
\par
\cf3 Syscmd.Column.ModifyProperty()\par
\par
\cf2 Cell_ColMenu_Reset_Click\par
\par
\cf3 If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then\par
    Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol\par
    dc.RaiseDataColchanged()\par
End If\par
\par
\cf2 Cell_ColMenu_UnFreeze_Click\par
\par
\cf3 Syscmd.Column.UnFreeze()\par
\par
\cf2 Cell_ColMenu_UnHide_Click\par
\par
\cf3 Syscmd.Column.UnHide()\par
\par
\cf2 Cell_ColMenu_Unlock_Click\par
\par
\cf3 Syscmd.Column.Unlock()\par
\par
\cf2 Cell_Copy_Click\par
\par
\cf3 Syscmd.Edit.Copy()\par
\par
\cf2 Cell_Cut_Click\par
\par
\cf3 Syscmd.Edit.Cut()\par
\par
\cf2 Cell_Descending_Click\par
\par
\cf3 Syscmd.Sort.Descending()\par
\par
\cf2 Cell_DockSetting_Click\par
\par
\cf3 Syscmd.Table.DockSetting()\par
\par
\cf2 Cell_Filter_AdvancedFilter_Click\par
\par
\cf3 Syscmd.Filter.Advanced()\par
\par
\cf2 Cell_Filter_Equal_Click\par
\par
\cf3 Syscmd.Filter.Equal()\par
\par
\cf2 Cell_Filter_FilterFalse_Click\par
\par
\cf3 Syscmd.Filter.FilterBoolean(False)\par
\par
\cf2 Cell_Filter_FilterTrue_Click\par
\par
\cf3 Syscmd.Filter.FilterBoolean(True)\par
\par
\cf2 Cell_Filter_Less_Click\par
\par
\cf3 Syscmd.Filter.LessThan()\par
\par
\cf2 Cell_Filter_LessOrEqual_Click\par
\par
\cf3 Syscmd.Filter.NotMoreThan()\par
\par
\cf2 Cell_Filter_More_Click\par
\par
\cf3 Syscmd.Filter.MoreThan()\par
\par
\cf2 Cell_Filter_MoreOrEqual_Click\par
\par
\cf3 Syscmd.Filter.NotLessThan()\par
\par
\cf2 Cell_Filter_NotEqual_Click\par
\par
\cf3 Syscmd.Filter.UnEqual()\par
\par
\cf2 Cell_Filter_NotNull_Click\par
\par
\cf3 Syscmd.Filter.NotNull()\par
\par
\cf2 Cell_Filter_Null_Click\par
\par
\cf3 Syscmd.Filter.Null()\par
\par
\cf2 Cell_Filter_Period_M1_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(1)\par
\par
\cf2 Cell_Filter_Period_M10_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(10)\par
\par
\cf2 Cell_Filter_Period_M11_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(11)\par
\par
\cf2 Cell_Filter_Period_M12_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(12)\par
\par
\cf2 Cell_Filter_Period_M2_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(2)\par
\par
\cf2 Cell_Filter_Period_M3_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(3)\par
\par
\cf2 Cell_Filter_Period_M4_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(4)\par
\par
\cf2 Cell_Filter_Period_M5_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(5)\par
\par
\cf2 Cell_Filter_Period_M6_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(6)\par
\par
\cf2 Cell_Filter_Period_M7_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(7)\par
\par
\cf2 Cell_Filter_Period_M8_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(8)\par
\par
\cf2 Cell_Filter_Period_M9_Click\par
\par
\cf3 Syscmd.Filter.FilterByMonth(9)\par
\par
\cf2 Cell_Filter_Period_Q1_Click\par
\par
\cf3 Syscmd.Filter.FilterByQuarter(1)\par
\par
\cf2 Cell_Filter_Period_Q2_Click\par
\par
\cf3 Syscmd.Filter.FilterByQuarter(2)\par
\par
\cf2 Cell_Filter_Period_Q3_Click\par
\par
\cf3 Syscmd.Filter.FilterByQuarter(3)\par
\par
\cf2 Cell_Filter_Period_Q4_Click\par
\par
\cf3 Syscmd.Filter.FilterByQuarter(4)\par
\par
\cf2 Cell_Filter_Popup\par
\par
\cf3 Dim t As Table = CurrentTable\par
If t.ColSel < 0 Then\par
    Return\par
End If\par
Dim m As RibbonMenu.ContextCommandMenu = e.CommandMenu\par
Dim c As Col = t.Cols(t.ColSel)\par
Dim Less As RibbonMenu.ContextCommand = CType(m.Items("Less"), RibbonMenu.ContextCommand)\par
Dim LessOrEqual As RibbonMenu.ContextCommand = CType(m.Items("LessOrEqual"), RibbonMenu.ContextCommand)\par
Dim More As RibbonMenu.ContextCommand = CType(m.Items("More"), RibbonMenu.ContextCommand)\par
Dim MoreOrEqual As RibbonMenu.ContextCommand = CType(m.Items("MoreOrEqual"), RibbonMenu.ContextCommand)\par
Dim Equal As RibbonMenu.ContextCommand = CType(m.Items("Equal"), RibbonMenu.ContextCommand)\par
Dim NotEqual As RibbonMenu.ContextCommand = CType(m.Items("NotEqual"), RibbonMenu.ContextCommand)\par
Dim FilterTrue As RibbonMenu.ContextCommand = CType(m.Items("FilterTrue"), RibbonMenu.ContextCommand)\par
Dim FilterFalse As RibbonMenu.ContextCommand = CType(m.Items("FilterFalse"), RibbonMenu.ContextCommand)\par
Dim SamePeriod As RibbonMenu.ContextCommandMenu = CType(m.Items("SamePeriod"), RibbonMenu.ContextCommandMenu)\par
Dim Period As RibbonMenu.ContextCommandMenu = CType(m.Items("Period"), RibbonMenu.ContextCommandMenu)\par
Dim StringFilter As RibbonMenu.ContextCommandMenu = CType(m.Items("StringFilter"), RibbonMenu.ContextCommandMenu)\par
Dim ValueFilter As RibbonMenu.ContextCommandMenu = CType(m.Items("ValueFilter"), RibbonMenu.ContextCommandMenu)\par
Dim StatusFilter As RibbonMenu.ContextCommandMenu = CType(m.Items("StatusFilter"), RibbonMenu.ContextCommandMenu)\par
Dim SameValueFilter As RibbonMenu.ContextCommandMenu = CType(m.Items("SameValues"), RibbonMenu.ContextCommandMenu)\par
Dim AdvancedFilter As RibbonMenu.ContextCommand = CType(m.Items("AdvancedFilter"), RibbonMenu.ContextCommand)\par
Dim Null As RibbonMenu.ContextCommand = CType(m.Items("Null"), RibbonMenu.ContextCommand)\par
Dim NotNull As RibbonMenu.ContextCommand = CType(m.Items("NotNull"), RibbonMenu.ContextCommand)\par
StatusFilter.Delimiter = c.IsBoolean\par
AdvancedFilter.Delimiter = Not c.IsBoolean\par
If c.IsDate Then\par
    ValueFilter.Text = "\'c8\'d5\'c6\'da\'c9\'b8\'d1\'a1"\par
ElseIf c.IsNumeric Then\par
    ValueFilter.Text = "\'ca\'fd\'d6\'b5\'c9\'b8\'d1\'a1"\par
End If\par
If t.Position < 0 Then\par
    Less.Visible = False\par
    LessOrEqual.Visible = False\par
    More.Visible = False\par
    MoreOrEqual.Visible = False\par
    Equal.Visible = False\par
    NotEqual.Visible = False\par
    SamePeriod.Visible = False\par
    Period.Visible = c.IsDate\par
    Return\par
Else\par
    Period.Visible = c.IsDate \par
    SamePeriod.Visible = c.IsDate\par
    Sameperiod.Delimiter = Not Period.Visible\par
    StringFilter.Visible = c.IsString\par
    ValueFilter.Visible = c.IsDate OrElse c.IsNumeric\par
    ValueFilter.Delimiter = c.IsNumeric\par
    If c.IsDate Then\par
        SamePeriod.Items("Hour").Visible = (c.DataCol.DateTimeFormat <> DateTimeFormatEnum.Date)\par
        SamePeriod.Items("Minute").Visible = (c.DataCol.DateTimeFormat <> DateTimeFormatEnum.Date)\par
    End If\par
End If\par
If c.IsBoolean Then\par
    FilterTrue.Visible = True\par
    FilterFalse.Visible = True\par
    Equal.Visible = False\par
    NotEqual.Visible = False\par
    Less.Visible = False\par
    More.Visible = False\par
    LessOrEqual.Visible = False\par
    MoreOrEqual.Visible = False\par
    SameValueFilter.Visible = False\par
    Null.Visible = False\par
    NotNull.Visible = False\par
Else\par
    FilterTrue.Visible = False\par
    FilterFalse.Visible = False\par
    Equal.Visible = True\par
    NotEqual.Visible = True\par
    Null.Visible = True\par
    NotNull.Visible = True\par
    If t.Current.IsNull(t.ColSel) OrElse c.IsString Then\par
        Less.Visible = False\par
        More.Visible = False\par
        LessOrEqual.Visible = False\par
        MoreOrEqual.Visible = False\par
    Else\par
        Less.Visible = True\par
        More.Visible = True\par
        LessOrEqual.Visible = True\par
        MoreOrEqual.Visible = True\par
    End If\par
End If\par
If t.Current.IsNull(t.ColSel) Then\par
    Equal.Visible = False\par
    NotEqual.Visible = False\par
    Sameperiod.Visible = False\par
    ValueFilter.Delimiter = True\par
ElseIf c.IsString Then\par
   Dim v As String = t.Text\par
    If v > "" AndAlso v.Length > 15 Then\par
        v = v.SubString(0,15) & "..."\par
    End If\par
    Equal.Text = "\'b5\'c8\'d3\'da """ & v & """"\par
    NotEqual.Text = "\'b2\'bb\'b5\'c8\'d3\'da """ & v  & """"\par
ElseIf c.IsNumeric Then\par
    Equal.Text = "\'b5\'c8\'d3\'da " & t.Text\par
    NotEqual.Text = "\'b2\'bb\'b5\'c8\'d3\'da " & t.Text\par
    Less.Text = "\'d0\'a1\'d3\'da " & t.Text\par
    LessOrEqual.Text = "\'b2\'bb\'b4\'f3\'d3\'da " & t.Text\par
    More.Text = "\'b4\'f3\'d3\'da " & t.Text\par
    MoreOrEqual.Text = "\'b2\'bb\'d0\'a1\'d3\'da " & t.Text\par
ElseIf c.IsDate Then\par
    Equal.Text = "\'b5\'c8\'d3\'da " & t.Text\par
    NotEqual.Text = "\'b2\'bb\'b5\'c8\'d3\'da " & t.Text\par
    Less.Text = "\'d4\'e7\'d3\'da " & t.Text\par
    More.Text = "\'cd\'ed\'d3\'da " & t.Text\par
    LessOrEqual.Text = "\'b2\'bb\'cd\'ed\'d3\'da " & t.Text\par
    MoreOrEqual.Text = "\'b2\'bb\'d4\'e7\'d3\'da " & t.Text\par
End If\par
\par
\cf2 Cell_Filter_SamePeriod_Day_Click\par
\par
\cf3 Syscmd.Filter.SameDay()\par
\par
\cf2 Cell_Filter_SamePeriod_Hour_Click\par
\par
\cf3 Syscmd.Filter.SameHour()\par
\par
\cf2 Cell_Filter_SamePeriod_Minute_Click\par
\par
\cf3 Syscmd.Filter.SameMinute()\par
\par
\cf2 Cell_Filter_SamePeriod_Month_Click\par
\par
\cf3 Syscmd.Filter.SameMonth()\par
\par
\cf2 Cell_Filter_SamePeriod_Quarter_Click\par
\par
\cf3 Syscmd.Filter.SameQuarter()\par
\par
\cf2 Cell_Filter_SamePeriod_Week_Click\par
\par
\cf3 Syscmd.Filter.SameWeek()\par
\par
\cf2 Cell_Filter_SamePeriod_Year_Click\par
\par
\cf3 Syscmd.Filter.SameYear()\par
\par
\cf2 Cell_Filter_SameValues_HideSameValues_Click\par
\par
\cf3 Syscmd.Filter.HideSameValues()\par
\par
\cf2 Cell_Filter_SameValues_ShowRedundantValues_Click\par
\par
\cf3 Syscmd.Filter.ShowRedundantValues()\par
\par
\cf2 Cell_Filter_SameValues_ShowSameValues_Click\par
\par
\cf3 Syscmd.Filter.ShowSameValues()\par
\par
\cf2 Cell_Filter_SameValues_ShowUnqiueValue_Click\par
\par
\cf3 Syscmd.Filter.ShowUnqiueValues()\par
\par
\cf2 Cell_Filter_StatusFilter_LockedRows_Click\par
\par
\cf3 Syscmd.Filter.LockStatusFilter(True)\par
\par
\cf2 Cell_Filter_StatusFilter_UnlockedRows_Click\par
\par
\cf3 Syscmd.Filter.LockStatusFilter(False)\par
\par
\cf2 Cell_Filter_StringFilter_Contains_Click\par
\par
\cf3 Syscmd.Filter.Contains()\par
\par
\cf2 Cell_Filter_StringFilter_EndsWith_Click\par
\par
\cf3 Syscmd.Filter.EndsWith()\par
\par
\cf2 Cell_Filter_StringFilter_Equal_Click\par
\par
\cf3 Syscmd.Filter.Equal(False)\par
\par
\cf2 Cell_Filter_StringFilter_Like_Click\par
\par
\cf3 Syscmd.Filter.Like()\par
\par
\cf2 Cell_Filter_StringFilter_NotContains_Click\par
\par
\cf3 Syscmd.Filter.NotContains()\par
\par
\cf2 Cell_Filter_StringFilter_NotEndsWith_Click\par
\par
\cf3 Syscmd.Filter.NotEndsWith()\par
\par
\cf2 Cell_Filter_StringFilter_NotLike_Click\par
\par
\cf3 Syscmd.Filter.NotLike()\par
\par
\cf2 Cell_Filter_StringFilter_NotStartsWith_Click\par
\par
\cf3 Syscmd.Filter.NotStartsWith()\par
\par
\cf2 Cell_Filter_StringFilter_StartsWith_Click\par
\par
\cf3 Syscmd.Filter.StartsWith()\par
\par
\cf2 Cell_Filter_StringFilter_UnEqual_Click\par
\par
\cf3 Syscmd.Filter.UnEqual(False)\par
\par
\cf2 Cell_Filter_ValueFilter_Between_Click\par
\par
\cf3 Syscmd.Filter.BetWeen()\par
\par
\cf2 Cell_Filter_ValueFilter_Equal_Click\par
\par
\cf3 Syscmd.Filter.Equal(False)\par
\par
\cf2 Cell_Filter_ValueFilter_Less_Click\par
\par
\cf3 Syscmd.Filter.LessThan(False)\par
\par
\cf2 Cell_Filter_ValueFilter_LessOrEqual_Click\par
\par
\cf3 Syscmd.Filter.NotMoreThan(False)\par
\par
\cf2 Cell_Filter_ValueFilter_More_Click\par
\par
\cf3 Syscmd.Filter.MoreThan(False)\par
\par
\cf2 Cell_Filter_ValueFilter_MoreOrEqual_Click\par
\par
\cf3 Syscmd.Filter.NotLessThan(False)\par
\par
\cf2 Cell_Filter_ValueFilter_NotBetween_Click\par
\par
\cf3 Syscmd.Filter.NotBetWeen()\par
\par
\cf2 Cell_Filter_ValueFilter_NotEqual_Click\par
\par
\cf3 Syscmd.Filter.Unequal(False)\par
\par
\cf2 Cell_Filter_ValueFilter_Popup\par
\par
\cf3 dim t as Table = CurrentTable\par
Dim m As RibbonMenu.ContextCommandMenu = e.CommandMenu\par
Dim c As Col = t.Cols(t.ColSel)\par
Dim Less As RibbonMenu.ContextCommand = CType(m.Items("Less"), RibbonMenu.ContextCommand)\par
Dim LessOrEqual As RibbonMenu.ContextCommand = CType(m.Items("LessOrEqual"), RibbonMenu.ContextCommand)\par
Dim More As RibbonMenu.ContextCommand = CType(m.Items("More"), RibbonMenu.ContextCommand)\par
Dim MoreOrEqual As RibbonMenu.ContextCommand = CType(m.Items("MoreOrEqual"), RibbonMenu.ContextCommand)\par
If c.IsDate Then\par
    Less.Text = "\'d4\'e7\'d3\'da..."\par
    More.Text = "\'cd\'ed\'d3\'da..."\par
    LessOrEqual.Text = "\'b2\'bb\'cd\'ed\'d3\'da..."\par
    MoreOrEqual.Text = "\'b2\'bb\'d4\'e7\'d3\'da..."\par
Else If c.IsNumeric Then\par
    Less.Text = "\'d0\'a1\'d3\'da..."\par
    More.Text = "\'b4\'f3\'d3\'da..."\par
    LessOrEqual.Text = "\'b2\'bb\'b4\'f3\'d3\'da..."\par
    MoreOrEqual.Text = "\'b2\'bb\'d0\'a1\'d3\'da..."\par
End If\par
\par
\cf2 Cell_Load_Click\par
\par
\cf3 Dim t As Table = CurrentTable\par
If t.IsRelation = False\par
    t.DataTable.Load()\par
End If\par
\par
\cf2 Cell_Paste_Click\par
\par
\cf3 Syscmd.Edit.Paste()\par
\par
\cf2 Cell_Popup\par
\par
\cf3 e.ContextMenu.Items("DockSetting").Visible= (CurrentTable.IsChild OrElse CurrentTable.IsParent)\par
e.ContextMenu.Items("Filter").Enabled = (CurrentTable.Current IsNot Nothing)\par
e.ContextMenu.Items("Load").Visible = (CurrentTable.IsRelation = False)\par
\par
\cf2 Cell_RowMenu_Add_Click\par
\par
\cf3 Syscmd.Row.AddNew()\par
\par
\cf2 Cell_RowMenu_AddChild_Click\par
\par
\cf3 Syscmd.GridTree.AddChild()\par
\par
\cf2 Cell_RowMenu_Clone_Click\par
\par
\cf3 Syscmd.Row.Clone()\par
\par
\cf2 Cell_RowMenu_Delete_Click\par
\par
\cf3 Syscmd.Row.Delete()\par
\par
\cf2 Cell_RowMenu_Insert_Click\par
\par
\cf3 Syscmd.Row.Insert()\par
\par
\cf2 Cell_RowMenu_Load_Click\par
\par
\cf3 Syscmd.Row.Refresh()\par
\par
\cf2 Cell_RowMenu_Lock_Click\par
\par
\cf3 Syscmd.Row.Lock()\par
\par
\cf2 Cell_RowMenu_MoveDown_Click\par
\par
\cf3 Syscmd.Row.MoveDown()\par
\par
\cf2 Cell_RowMenu_MoveLeft_Click\par
\par
\cf3 Syscmd.GridTree.MoveLeft()\par
\par
\cf2 Cell_RowMenu_MoveRight_Click\par
\par
\cf3 Syscmd.GridTree.MoveRight()\par
\par
\cf2 Cell_RowMenu_Moveup_Click\par
\par
\cf3 Syscmd.Row.MoveUp()\par
\par
\cf2 Cell_RowMenu_Popup\par
\par
\cf3 e.CommandMenu.Items("AddChild").Visible = CurrentTable.GridTreeVisible\par
e.CommandMenu.Items("MoveLeft").Visible = CurrentTable.GridTreeVisible\par
e.CommandMenu.Items("MoveRight").Visible = CurrentTable.GridTreeVisible\par
\par
\cf2 Cell_RowMenu_UnLock_Click\par
\par
\cf3 Syscmd.Row.UnLock()\par
\par
\cf2 Cell_Select_Click\par
\par
\cf3 Syscmd.Filter.Values()\par
\par
\cf2 Cell_UnFilter_Click\par
\par
\cf3 Syscmd.Filter.UnFilter()\par
\par
\cf2 Cell_UnSort_Click\par
\par
\cf3 Syscmd.Sort.UnSort()\par
\par
\cf2 Column_Ascending_Click\par
\par
\cf3 Syscmd.Sort.Ascending()\par
\par
\cf2 Column_Desceding_Click\par
\par
\cf3 Syscmd.Sort.Descending()\par
\par
\cf2 Column_Freeze_Click\par
\par
\cf3 Syscmd.Column.Freeze()\par
\par
\cf2 Column_Hide_Click\par
\par
\cf3 Syscmd.Column.Hide()\par
\par
\cf2 Column_Lock_Click\par
\par
\cf3 Syscmd.Column.Lock()\par
\par
\cf2 Column_MoveLeft_Click\par
\par
\cf3 Syscmd.Column.MoveLeft()\par
\par
\cf2 Column_MoveRight_Click\par
\par
\cf3 Syscmd.Column.MoveRight()\par
\par
\cf2 Column_Property_Click\par
\par
\cf3 Syscmd.Column.ModifyProperty()\par
\par
\cf2 Column_UnFreeze_Click\par
\par
\cf3 Syscmd.Column.UnFreeze()\par
\par
\cf2 Column_UnHide_Click\par
\par
\cf3 Syscmd.Column.UnHide()\par
\par
\cf2 Column_Unlock_Click\par
\par
\cf3 Syscmd.Column.Unlock()\par
\par
\cf2 Column_Width_Click\par
\par
\cf3 Syscmd.Column.Width()\par
\par
\cf2 Column_\'b1\'ea\'d7\'bc\'cf\'ee\'c4\'bf1_Click\par
\par
\cf3 Dim cvs As String = CurrentTable.GetColVisibleWidth\par
Dim cmd As New SQLCommand\par
cmd.ConnectionName = "data"\par
cmd.CommandText = "insert into \'d1\'f9\'ca\'bd\'b1\'ed(\'b1\'ed\'c3\'fb,\'d1\'f9\'ca\'bd,\'ca\'c7\'b7\'f1\'c6\'f4\'d3\'c3) values(?,?,?)"\par
cmd.Parameters.Add("@\'b1\'ed\'c3\'fb", CurrentTable.Name)\par
cmd.Parameters.Add("@\'d1\'f9\'ca\'bd", cvs)\par
cmd.Parameters.Add("@\'ca\'c7\'b7\'f1\'c6\'f4\'d3\'c3",true)\par
cmd.ExecuteNonQuery\par
\par
\cf2 Empty_Add_Click\par
\par
\cf3 Syscmd.Row.AddNew()\par
\par
\cf2 Empty_DockSetting_Click\par
\par
\cf3 Syscmd.Table.DockSetting()\par
\par
\cf2 Empty_Popup\par
\par
\cf3 e.ContextMenu.Items("DockSetting").Visible = CurrentTable.IsRelation\par
\par
\cf2 Empty_UnFilter_Click\par
\par
\cf3 Syscmd.Filter.UnFilter()\par
\par
\cf2 Help_Click\par
\par
\cf3 ShowHelpWindow()\par
\par
\cf2 Help_Click\par
\par
\cf3 ShowHelpWindow()\par
\par
\cf2 New_Click\par
\par
\cf3 Syscmd.Project.Create()\par
\par
\cf2 Open_Click\par
\par
\cf3 Syscmd.Project.Open()\par
\par
\cf2 PageSetup_Click\par
\par
\cf3 If CurrentTable IsNot Nothing Then\par
   CurrentTable.PrintSetting()\par
End If\par
\par
\cf2 Preview_Click\par
\par
\cf3 If CurrentTable IsNot Nothing Then\par
   CurrentTable.Print(True, False)\par
End If\par
\par
\cf2 Print_Click\par
\par
\cf3 If CurrentTable IsNot Nothing Then\par
   CurrentTable.Print(False, True)\par
End If\par
\par
\cf2 QuickPrint_Click\par
\par
\cf3 If CurrentTable IsNot Nothing Then\par
   CurrentTable.Print(False, False)\par
End If\par
\par
\cf2 Redo_Click\par
\par
\cf3 Syscmd.Edit.Redo()\par
\par
\cf2 Row_Add_Click\par
\par
\cf3 Syscmd.Row.AddNew()\par
\par
\cf2 Row_AddChild_Click\par
\par
\cf3 Syscmd.GridTree.AddChild()\par
\par
\cf2 Row_Clone_Click\par
\par
\cf3 Syscmd.Row.Clone()\par
\par
\cf2 Row_Delete_Click\par
\par
\cf3 Syscmd.Row.Delete()\par
\par
\cf2 Row_Height_Click\par
\par
\cf3 Syscmd.Row.Height()\par
\par
\cf2 Row_Insert_Click\par
\par
\cf3 Syscmd.Row.Insert()\par
\par
\cf2 Row_Load_Click\par
\par
\cf3 Syscmd.Row.Refresh()\par
\par
\cf2 Row_Lock_Click\par
\par
\cf3 Syscmd.Row.Lock()\par
\par
\cf2 Row_MoveDown_Click\par
\par
\cf3 Syscmd.Row.MoveDown()\par
\par
\cf2 Row_MoveLeft_Click\par
\par
\cf3 Syscmd.GridTree.MoveLeft()\par
\par
\cf2 Row_MoveRight_Click\par
\par
\cf3 Syscmd.GridTree.MoveRight()\par
\par
\cf2 Row_Moveup_Click\par
\par
\cf3 Syscmd.Row.MoveUp()\par
\par
\cf2 Row_Popup\par
\par
\cf3 e.ContextMenu.Items("AddChild").Visible = CurrentTable.GridTreeVisible\par
e.ContextMenu.Items("MoveLeft").Visible = CurrentTable.GridTreeVisible\par
e.ContextMenu.Items("MoveRight").Visible = CurrentTable.GridTreeVisible\par
\par
\cf2 Row_UnFilter_Click\par
\par
\cf3 Syscmd.Filter.UnFilter()\par
\par
\cf2 Row_UnLock_Click\par
\par
\cf3 Syscmd.Row.UnLock()\par
\par
\cf2 Save_Click\par
\par
\cf3 Ctype(ApplicationMenu.LeftItems("Save"), RibbonMenu.Button).PerformClick()\par
\par
\cf2 Save_Click\par
\par
\cf3 Syscmd.Project.Save()\par
\par
\cf2 SaveAs_Click\par
\par
\cf3 Syscmd.Project.SaveAs()\par
\par
\cf2 SwitchUser_Click\par
\par
\cf3 Syscmd.Project.SwitchUser()\par
\par
\cf2 Undo_Click\par
\par
\cf3 Syscmd.Edit.Undo()\par
\par
\cf2 Undo_DoubleClick\par
\par
\cf3 Syscmd.Edit.Redo()\par
\par
\cf2\'bf\'ec\'bd\'dd\'c2\'eb\'b5\'a5_\'b2\'e9\'d1\'af_\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af_Click\par
\par
\cf3 Forms("\'c0\'fa\'ca\'b7\'b2\'e9\'d1\'af").Open\par
\par
\cf2\'bf\'ec\'bd\'dd\'c2\'eb\'b5\'a5_\'c3\'c5\'ca\'d0_addone_Click\par
\par
\cf3 Syscmd.Row.AddNew()\par
\par
\cf2\'bf\'ec\'bd\'dd\'c2\'eb\'b5\'a5_\'c3\'c5\'ca\'d0_deleteone_Click\par
\par
\cf3 Syscmd.Row.Delete()\par
\par
\cf2\'bf\'ec\'bd\'dd\'c2\'eb\'b5\'a5_\'c3\'c5\'ca\'d0_insertone_Click\par
\par
\cf3 Syscmd.Row.Insert()\par
\par
\cf0\par
}
 